home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
CYBERSTR.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
1KB
|
57 lines
# Quarterdeck NSTN Inc. SLIP or PPP script
STRING username
STRING password
STRING IPaddress
STRING framing
# TRACE ON
SetTimeout 60
# Get username from access method
CfgGetValue "Username" username
IF result = 0 THEN
ABORT "Can't load Username from qdeck.ini"
ENDIF
# get password from access method
CfgGetValue "Password" password
IF result = 0 THEN
ABORT "Can't load Password from qdeck.ini"
ENDIF
# get framing from access method
CfgGetValue "Framing" framing
IF result = 0 THEN
ABORT "Can't load Framing (SLIP or PPP) from qdeck.ini"
ENDIF
DELAY 2
# CommSend "%r"
# DELAY 2
# CommSend "%r"
CommWaitFor "ogin:"
CommSend username
IF framing = "MPSLIP" THEN
CommSend "%%nocslip%r"
ELSE
CommSend "%%ppp%r"
ENDIF
CommWaitFor "assword:"
CommSend password
CommSend "%r"
# CommWaitFor "annex:"
IF framing = "MPSLIP" THEN
CommWaitFor ") to"
CommReadIPaddr IPAddress # IP address should be next word
CfgSetValue "IPAddress" IPaddress # store the IP address
PRINT "IPAddress ="; IPAddress
ENDIF
END